****** Duties and Defacto Rights  ****** 
	
	
****** Figure 6A: Duties and Protecting Human Rights - 2017 ****** 
use "Data_Duties_Master.dta", clear

tab year if theta_mean_Fariss!=.  & duties_total!=.  & year==2017

corr theta_mean_Fariss duties_total  if duties_total!=.  & year==2017 


	binscatter  theta_mean_Fariss  duties_total if duties_total!=.  & year==2017,  n(20)  msymbol(O) mcolors(orange) lcolors(orange) ///
	ytitle("Human Rights Score", size(medium)) ///
	xtitle("# of Duties", size(medium)) ///
	xsize(1) ysize(1) legend(off) xlabel(0(3)15 ) ylabel(-3(1)3) ///
	scheme(s1mono) yscale(noextend) xscale(	noextend)plotregion(style(none)) 	

graph export "Figure_6A.pdf", replace

		
****** Figure 6B: Duties and Protecting Human Rights - All Years ****** 
use "Data_Duties_Master.dta", clear

tab year if theta_mean_Fariss!=.  & duties_total!=. & rights_total!=.

corr theta_mean_Fariss duties_total  if duties_total!=. & year<2018 


	binscatter  theta_mean_Fariss  duties_total if duties_total!=.  & year<2018 ,  n(20)  msymbol(O) mcolors(purple) lcolors(purple) ///
	ytitle("Human Rights Score", size(medium)) ///
	xtitle("# of Duties", size(medium)) ///
	xsize(1) ysize(1) legend(off) xlabel(0(3)15 ) ylabel(-3(1)3) ///
	scheme(s1mono) yscale(noextend) xscale(	noextend)plotregion(style(none)) 	
	
graph export "Figure_6B.pdf", replace
